home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / cert / trk3_eg / jfw / jfwlist.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-08-16  |  3.0 KB  |  87 lines
  1. frmList
  2. Topic List
  3. Form25A
  4. cmdstart
  5. &Close
  6.     CmdCancel
  7. Cancel
  8. cmdMod
  9. Modify
  10. cmdNew
  11.     lsttopics
  12.     lblTopics
  13. Topics
  14. @    Form_Load
  15. fname
  16.     txtoutput6
  17. Topic1b
  18. Topic2
  19. Topic3
  20. Topic4
  21. Topic5
  22. txtinput
  23. topic
  24. List1_Click
  25.     lsttopics+
  26. ThenlsttopicsF
  27. count
  28. cmdNew
  29. EnabledQ
  30. cmdNew_Click
  31. jfwedit
  32. cmdmod_click
  33. topicnum
  34. frmlist
  35. Index
  36. frmedit
  37. txtEdit
  38.     ListCount
  39.     ListIndex
  40. msgsel
  41. MB_Ok
  42. MB_ICONEXCLAMATION
  43.     cmdmodend
  44. cmdedit
  45. Caption-
  46. cmdOk
  47. lsttopics_Clickx
  48. cmdstart_Click
  49. lsttopic
  50. frmmain
  51. lbltopic
  52. jfwfile
  53. modular
  54. cmdDel_Click
  55. CmdCancel_Click
  56. loaddata
  57. loadgame
  58. lblTopics_Click
  59. getqat
  60. lsttopics_DblClick
  61. cmd_mod
  62. CmdCancel_Click
  63. cmdmod_click
  64. You must select an item on the list
  65. Must Select
  66. Modify
  67. Modify
  68. cmdNew_Click
  69. cmdstart_Click
  70. Dim temp As String
  71. 'Dim I, j As Integer
  72. Dim fname As Stringr
  73. 'Dim fnum As Integer
  74. ''fnum = FreeFilen
  75. 'fname = jfwfile
  76. Open fname For Input As fnum
  77. For I = 0 To 4
  78.    For j = 0 To 10
  79.  Input #fnum, temp
  80.  topic(I, j) = tempA
  81.  If j = 0 And Not (IsNull(temp)) Then frmmain.lbltopic(I).Caption = temp
  82.  Next j 
  83. Next I
  84.    Close   ' Close all files.e
  85. Form_Load
  86. lsttopics_DblClick
  87.